Ford Galaxy MK1 Restyling Interactive Presentation/Ford Galaxy.iso/multimedia.dxr/00038_Zoom In-Out.ls

Text File | 2001-02-13 | 5.5 KB | 166 lines

property pSprite, pSpriteRect, pStart, pActive, pStartRect, pDestRect, pDiffRect, pCompleteCycles, pText, pZoomed, pAuto, pTargetH, pTargetV, pCycles, pPeriodBase, pPeriod

on getBehaviorDescription me
  return "ZOOM IN/OUT" & RETURN & RETURN & "Gives the appearance of a sprite zooming in (getting larger) or zooming out (smaller). " & "Can be used with animated GIF, bitmap, Flash, QuickTime, text, and vector shape sprites." & RETURN & RETURN & "Place the sprite in its desired zoomed-in position, then add the behavior to the sprite. " & "Choose whether the sprite should zoom in or out, when the zooming should start, the coordinates for the zoomed-out sprite, the number of times it should zoom, and how fast it should zoom. " & "The default zoomed-out position is the center of the sprite." & RETURN & RETURN & "The zoom can be activated automatically in the first frame, by a click on the sprite, or by sending the sprite a mZoomActivate message. " & "See the Notes for Developers in the script for information on this method." & RETURN & RETURN & "PERMITTED MEMBER TYPES:" & RETURN & "animated GIF, bitmap, Flash, QuickTime, text, vector shape" & RETURN & RETURN & "PARAMETERS:" & RETURN & "* Zoom in or out?" & RETURN & "* Zoom activation (automatic, click, or message)" & RETURN & "* Horizontal and vertical zoom coordinates" & RETURN & "* Number of zoom cycles" & RETURN & "* Time period for zoom in seconds" & RETURN & RETURN & "Set the number of zoom cycles to -1 if you want an endless loop, or to 0 if the zoom should happen only once."
end

on getBehaviorTooltip me
  return "Zooms a sprite in and out. " & "The sprite can zoom in once, multiple times, or continuously."
end

on beginSprite me
  pZoomed = resolve(pZoomed)
  pAuto = resolve(pAuto)
  mInitialize(me)
end

on resolve prop
  case prop of
    pZoomed:
      choiceslist = ["In", "Out"]
      lookup = [#in, #out]
    pAuto:
      choiceslist = ["Automatic", "Click", "Message"]
      lookup = [#automatic, #click, #message]
  end case
  return lookup[findPos(choiceslist, prop)]
end

on prepareFrame me
  mUpdate(me)
end

on mouseUp me
  if pAuto = #click then
    mActivate(me)
  end if
end

on mInitialize me
  pSprite = sprite(me.spriteNum)
  sprite(pSprite).visible = 1
  pSpriteRect = pSprite.rect
  pActive = 0
  pCompleteCycles = 0.5
  pPeriod = pPeriodBase * 1000
  pText = pSprite.member.type = #text
  vTarget = point(pTargetH, pTargetV)
  if pZoomed = #in then
    vTargetRect = rect(vTarget, vTarget + point(1, 1))
    if pText then
      pSprite.quad = mRecttoQuad(vTargetRect)
    else
      pSprite.rect = vTargetRect
    end if
  end if
  if pAuto = #automatic then
    mActivate(me)
  end if
end

on mUpdate me
  if pActive then
    vMillis = the milliSeconds
    vElapsed = vMillis - pStart
    if vElapsed >= pPeriod then
      pActive = 0
      if pText then
        pSprite.quad = mRecttoQuad(pDestRect)
      else
        pSprite.rect = pDestRect
      end if
      mCheckCycle(me)
    else
      vRect = pStartRect + (pDiffRect * vElapsed / pPeriod)
      if pText then
        pSprite.quad = mRecttoQuad(vRect)
      else
        pSprite.rect = vRect
      end if
    end if
  end if
end

on mActivate me
  case pZoomed of
    #in:
      mZoomIn(me)
    #out:
      mZoomOut(me, point(pTargetH, pTargetV))
  end case
end

on mCheckCycle me
  vContinue = 0
  case pCycles of
    (-1):
      vContinue = 1
    0:
      vContinue = 0
    otherwise:
      pCompleteCycles = pCompleteCycles + 0.5
      if integer(pCompleteCycles) <= pCycles then
        vContinue = 1
      end if
  end case
  if vContinue then
    if pDestRect = pSpriteRect then
      mZoomOut(me, point(pTargetH, pTargetV))
    else
      mZoomIn(me)
    end if
  end if
end

on mRecttoQuad vRect
  return [point(vRect.left, vRect.top), point(vRect.right, vRect.top), point(vRect.right, vRect.bottom), point(vRect.left, vRect.bottom)]
end

on mZoomIn me
  mZoom(me, pSpriteRect)
end

on mZoomOut me, vTarget
  mZoom(me, rect(vTarget, vTarget + point(1, 1)))
end

on mZoom me, vDestRect
  pActive = 1
  pStartRect = pSprite.rect
  pDestRect = vDestRect
  pDiffRect = pDestRect - pStartRect
  pStart = the milliSeconds
end

on mCenter vRect
  return point(vRect.left + (vRect.width / 2), vRect.top + (vRect.height / 2))
end

on mZoomActivate me
  if pAuto = #message then
    mActivate(me)
  end if
end

on isOKToAttach me, aSpriteType, aSpriteNum
  case aSpriteType of
    #graphic:
      return getPos([#text, #bitmap, #animGif, #vectorShape, #quickTimeMedia, #flash, #shape], sprite(aSpriteNum).member.type) <> 0
    #script:
      return 0
  end case
end

on getPropertyDescriptionList me
  vRect = sprite(the currentSpriteNum).rect
  vCenter = mCenter(vRect)
  vPDList = [:]
  setaProp(vPDList, #pZoomed, [#comment: "Zoom in or out?", #format: #string, #default: "In", #range: ["In", "Out"]])
  setaProp(vPDList, #pAuto, [#comment: "Start automatically, when clicked, or by message?", #default: "Automatic", #format: #string, #range: ["Automatic", "Click", "Message"]])
  setaProp(vPDList, #pTargetH, [#comment: "Horizontal zoom coordinate", #format: #integer, #default: vCenter.locH])
  setaProp(vPDList, #pTargetV, [#comment: "Vertical zoom coordinate", #format: #integer, #default: vCenter.locV])
  setaProp(vPDList, #pCycles, [#comment: "Zoom cycles (0 = one zoom only, -1 = repeat forever)", #format: #integer, #default: 0, #range: [#min: -1, #max: 10]])
  setaProp(vPDList, #pPeriodBase, [#comment: "Time period for zoom (seconds)", #format: #float, #default: 2.0, #range: [#min: 0.25, #max: 15.0]])
  return vPDList
end